
   5 CLEAR ;NT=1;BC=245;O=39;B=20;D=0;P=1;G=-12;&(9)=7;&(2)=BC;&(3)=BC;FOR A=1TO 32;@(A)=0;NEXT A
  10 E=-75;V=35;U=-67;FOR Z=1TO 3;Y=V;W=RND (4);@(Z+29)=W;CY=V;CX=E;PRINT #1,W;GOSUB 500+Z;V=V-35;NEXT Z;GOSUB 14;GOTO 60
  12 S=B+RND (15);E=B+RND (10);L=1;RETURN 
  13 @(Z)=-46+RND (15);RETURN 
  14 BOX 15,0,128,79,3;BOX 15,0,130,81,3;BOX 15,0,130,1,1;@(6)=-39;@(7)=19;@(8)=-21
  15 CY=B;PRINT "Z.#",#1,P;R=B;FC=BC+4+RND (32)×8;GOSUB 12;FOR X=-49TO 79;H=RND (3);IF L=1IF R<S R=R+H;GOTO 30
  20 R=R-H;L=2;IF R<B R=B
  30 LINE X,O,4=XY;LINE X,R,1;IF L=2IF E>RGOSUB 12
  40 NEXT X;D=D+1;&(0)=FC;&(1)=FC;BOX 15,B,130,1,1;IF D=1O=-1;B=-20;GOTO 15
  45 CY=36;CX=G;PRINT " ROADRUNNER";CY=-4;CX=G;PRINT "   COYOTE ";RETURN 
  50 U=@(9);FOR V=12TO 19;@(V)=RND (12)+3;Y=@(V);GOSUB 500+T;U=U+15;NEXT V;RETURN 
  55 U=@(10);FOR V=20TO 27;@(V)=RND (13)-37;Y=@(V);GOSUB 500+J;U=U+15;NEXT V;RETURN 
  60 T=1;J=1;Z=9;GOSUB 13;Z=10;GOSUB 13;GOSUB 50;GOSUB 55;@(1)=-49;@(2)=-49;@(3)=10;@(4)=-30;@(5)=1
 130 BOX @(1),@(3),1,1,1;BOX @(2),@(4),1,1,1;FOR A=1TO 2;C=KN(A)÷60+3;IF (TR(A))+(@(A)<-51)+(@(A)>79)GOSUB 360
 140 L=@(A+4);M=@(A+6);IF (@(A+2)<L)+(@(A+2)>M)GOSUB 425
 150 BOX @(A),@(A+2),1,1,2;@(A)=@(A)+JX(A)×C;@(A+2)=@(A+2)+JY(A);NEXT A;GOTO 130
 360 IF @(A)>79GOTO 410
 365 IF @(A)<-51GOSUB 425;@(A)=-45;RETURN 
 370 IF A=1E=12;F=@(9);I=36
 375 IF A=2E=20;F=@(10);I=-4
 380 CY=I;CX=G;PRINT "  CHECKING";FOR X=0TO 7;IF @(A)<F+5IF @(A)>F-5E=E+X;GOTO 384
 383 F=F+15;NEXT X;GOTO 45
 384 IF @(E)=99GOTO 45
 385 L=0;FOR X=F-3TO F+3;FOR Y=@(E)-3TO @(E)+3;IF PX(X,Y)L=L+1
 390 NEXT Y;NEXT X;IF L>1CX=G;CY=I;PRINT " INCOMPLETE";GOTO 45
 395 CY=I;CX=G;PRINT "  COMPLETE";@(E)=99;@(A+27)=@(A+27)+1;GOTO 45
 410 IF A=1IF @(28)=@(29+T)T=T+1;O=39;B=20;P=T;Q=0;GOTO 430
 420 IF A=2IF @(29)=@(29+J)J=J+1;O=-1;B=-20;P=J;Q=5;GOTO 430
 425 NT=10;MU=49;MU=51;NT=1;@(A)=@(A)-10;@(A+2)=(M+L)÷2;RETURN 
 430 @(A+2)=(L+M)÷2;IF P=4GOTO 515
 440 BOX 15,B,128,39,2;GOSUB 15;Z=A+8;GOSUB 13;GOSUB 50+Q;@(27+A)=0;@(A)=-39;RETURN 
 501 Y=Y+2;FOR Q=1TO 3;K=2×Q;BOX U,Y,K,1,1;Y=Y-1;NEXT Q;RETURN 
 502 BOX U,Y,1,6,1;BOX U+1,Y,1,1,1;BOX U+2,Y+2,1,4,1;BOX U-1,Y-1,1,1,1;BOX U-2,Y,1,3,1;RETURN 
 503 K=-6;FOR Q=1TO 3;LINE U,Y-1,4=XY;K=K+3;LINE U-K,Y+3,1;NEXT Q;RETURN 
 515 &(21)=255;FOR Z=50TO 120;BOX 15,B,128,39,3;&(19)=Z;NEXT Z;&(21)=0;RUN 
:RETURN ;RUN 
>